home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / miami_dodatki / miamionoff / rexx / miamioffline.rexx next >
OS/2 REXX Batch file  |  1996-12-15  |  659b  |  39 lines
  1. /*
  2. **  Miami offline - arexx script for Miami TCP/IP
  3. **
  4. **  $VER: MiamiOffline 1.0 (9.11.96)
  5. **
  6. **  By Kenneth C. Nilsen (kennecni@IDGonline.no)
  7. **
  8. */
  9.  
  10. options results
  11.  
  12. if ~show('p', 'MIAMI.1') then do
  13.     Say "Miami is already offline!"
  14.     Exit 0
  15. end
  16.  
  17. address 'MIAMI.1'
  18.  
  19. ISONLINE
  20. IF RC=0 then do
  21.     Say "Miami is already offline!"
  22.     Exit 0
  23. END
  24.  
  25. OFFLINE
  26.  
  27. ISONLINE
  28. IF RC=1 then do
  29.     Say "Couldn't get Miami offline!"
  30.     Say "Please terminate TCP/IP clients and try again." 
  31.     Exit 0
  32. END
  33.  
  34. QUIT    /* remove this line if you want Miami to still run after the
  35.        offline procedure. The Online script will however start Miami
  36.        again if the miami port is not found */
  37.  
  38. exit 0
  39.